home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol033 / random.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  512 b   |  18 lines
  1. 10 REM  random number program - Deane Wang Cybersoft Group - 7 May 1982
  2. 20 '
  3. 25 CLS: DIM NUM%(301)
  4. 30 I=0: INPUT "enter highest value needed (integer, max. 300)";R%
  5. 40 INPUT "Do you want a non-repeating series (y or n)";Q$
  6. 50 N%=RND(1)*(R%+1)
  7. 60 IF N%>R% THEN GOTO 50
  8. 70 IF Q$="n" THEN PRINT N%,: GOTO 50
  9. 80 IF Q$<>"y" THEN GOTO 30
  10. 110 FOR IT=0 TO I
  11. 120 IF NUM%(IT)=N% THEN GOTO 50
  12. 130 NEXT IT
  13. 135 NUM%(I)=N%
  14. 140 I=I+1
  15. 150 PRINT N%,
  16. 160 IF I=R% THEN END ELSE GOTO 50
  17.  I
  18. 120 IF NUM%(IT)=N% THEN